How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/EGYPTW.DIR/01707_Script_Clothes

Text File | 1995-09-13 | 6KB | 199 lines

global gQuest, gBeenClicked

on EClothesRollovers1
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(7) then
      repeat while rollover(7)
        EgyptCursor
        set the locH of sprite 14 to 433
        set the locV of sprite 14 to 338
        updatestage
        if the mousedown then
          set GBeenClicked = 1
        else
          if gBeenClicked = 1 then
            repeat while gBeenClicked = 1
              ClothSpin 7, 439, 2, "SE200400.AIF"
            end repeat
          end if
        end if
      end repeat
      set the locH of sprite 14 to 933
      updatestage
    else
      if the mousecast = the castnum of sprite 2 then
        repeat while the mousecast = the castnum of sprite 2 or rollover(17)
          EgyptCursor
          Puppetsprite 17, true
          set the locH of sprite 17 to 205
          set the locV of sprite 17 to 353
          updatestage
          if the mousedown then
            set GBeenClicked = 1
          else
            if gBeenClicked = 1 then
              --preloadcast 442, 447
              repeat while gBeenClicked = 1
                ClothSpin 2, 442, 5, "SE200600.AIF"
              end repeat
            end if
          end if
        end repeat
        set the locH of sprite 17 to 905
        updatestage
        puppetsprite 17, false
      else
        if rollover(9) then
          ArrowCursor
          repeat while rollover(9)
            set the locH of sprite 10 to 294
            set the locV of sprite 10 to 289
            updatestage
          end repeat
          set the locH of sprite 10 to 994
          updatestage
        else
          if rollover(11) or rollover(12) then
            ArrowCursor
            repeat while rollover(11) or rollover(12)
              set the locH of sprite 13 to 257
              set the locV of sprite 13 to 346
              updatestage
            end repeat
            set the locH of sprite 13 to 957
            updatestage
          else
            if rollover(15) then
              ArrowCursor
              repeat while rollover(15)
                set the locH of sprite 16 to 423
                set the locV of sprite 16 to 299
                updatestage
              end repeat
              set the locH of sprite 16 to 923
              updatestage
            else
              if rollover(40) then
                HandCursor
              else
                if rollover(41) then
                  HandCursor
                else
                  if rollover(42) then
                    HandCursor
                  else
                    ArrowCursor
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on EClothesRollovers2
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(6) then
      ArrowCursor
      repeat while rollover(6)
        set the locH of sprite 7 to 371
        set the locV of sprite 7 to 354
        updatestage
      end repeat
      set the locH of sprite 7 to 971
      updatestage
    else
      if rollover(8) then
        ArrowCursor
        repeat while rollover(8)
          set the locH of sprite 9 to 347
          set the locV of sprite 9 to 146
          updatestage
        end repeat
        set the locH of sprite 9 to 947
        updatestage
      else
        if rollover(10) then
          ArrowCursor
          repeat while rollover(10)
            set the locH of sprite 28 to 554
            set the locV of sprite 28 to 213
            updatestage
          end repeat
          set the locH of sprite 28 to 554
          updatestage
        else
          if rollover(11) then
            ArrowCursor
            repeat while rollover(11)
              set the locH of sprite 12 to 491
              set the locV of sprite 12 to 284
              updatestage
            end repeat
            set the locH of sprite 12 to 991
            updatestage
          else
            if rollover(39) then
              HandCursor
            else
              if rollover(41) then
                HandCursor
              else
                if rollover(42) then
                  HandCursor
                else
                  ArrowCursor
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on ClothSpin whichsprite, whichCast, HowManyCast, whichsound
  ArrowCursor
  set gSprite = whichsprite
  set gCast = whichCast
  set gEndCast = whichCast + (HowManyCast - 1)
  set theCast = the castNum of sprite gSprite
  puppetsound whichsound
  repeat while theCast < gEndCast and (the MouseUp)
    set theCast = the castNum of sprite gSprite
    set the castNum of sprite gSprite = theCast + 1
    updatestage
    wait .2
    if the mousedown then
      exit repeat
    end if
  end repeat
  wait .5
  if thecast = gEndCast then
    repeat while theCast > (gCast + 1) and (the MouseUp)
      set theCast = the castNum of sprite gSprite
      set the castNum of sprite gSprite = theCast - 1
      updatestage
      wait .2
      if the mousedown then
        exit repeat
      end if
    end repeat
  else
    set the castnum of sprite whichsprite = gCast
    updatestage
  end if
  Puppetsound 0
  set gbeenclicked = 0
end